home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / TEST FILE CREATOR.bas < prev    next >
BASIC Source File  |  2023-02-26  |  281b  |  10 lines
  1. 10  HOME : CLEAR :D$ =  CHR$(4)
  2. 20 NR = 200:A$ = "FAST FILE SEARCH"
  3. 30  PRINT D$;"OPEN TEST FILE,L200"
  4. 40  PRINT D$;"WRITE TEST FILE,R0"
  5. 50  PRINT NR
  6. 60  FOR R = 1 TO NR
  7. 70  PRINT D$;"WRITE TEST FILE,R";R
  8. 80  FOR F = 1 TO 3: PRINT A$;R: NEXT 
  9. 90  NEXT R
  10. 100  PRINT D$;"CLOSE": END